home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / remote / s_ver092.zip / S-VER.Q-A < prev    next >
Text File  |  1990-09-03  |  2KB  |  97 lines
  1. ClearScreen
  2. ChangeColor 14 0
  3. Display "    S-VER Call Back User Reqister Survey    |"
  4. ChangeColor 7 0
  5. Display "|"
  6. Display "    Due to the volume of requests for access to this System |"
  7. Display "We Will need You to Answer a Few Questions.  Anyone who chooses |"
  8. Display "not to answer, Will not gain access to this Board...!   |"
  9. Display "|"
  10. Display "    This information is needed for my records only. Please take |"
  11. Display "the time to fill in this Survey. This is the only time You will |"
  12. Display "be asked or permitted to Answer these Questions....!|"
  13. Display "            Thank You...... *Your Sysop*.
  14. Display "|"
  15.  
  16. ChangeColor 14 0
  17. Display " What is Your Real Full Name...|"
  18. ChangeColor 3 0
  19. Ask 35 1
  20.  
  21. ChangeColor 14 0
  22. Display " Is this your Log on Name (Y/N)? |"
  23. ChangeColor 3 0
  24. GetChoice YN 2
  25.  
  26. If 2 = "N"
  27. ChangeColor 14 0
  28. Display " What is your Log on Name|: "
  29. ChangeColor 3 0
  30. Ask 35 3
  31. EndIf
  32.  
  33. ChangeColor 14 0
  34. Display " What is Your Correct Street Address |"
  35. changecolor 3 0
  36. ask 45 4
  37.  
  38. changecolor 14 0
  39. Display " What is Your Correct Town  |"
  40. changecolor 3 0
  41. ask 45 5
  42.  
  43. changecolor 14 0
  44. Display " What is the Correct State (two Letters ) |"
  45. changecolor 3 0
  46. ask 2 6
  47.  
  48. Changecolor 14 0
  49. Display " What is you Correct ZipCode... (5 or 9 digit code)|"
  50. Changecolor 3 0
  51. Ask 10 7
  52.  
  53. Changecolor 14 0
  54. Display " Is this also the Mailing Address (Y/N) |"
  55. Changecolor 3 0
  56. Getchoice yn 8
  57.  
  58. If 8 = "N"
  59. Changecolor 14 0
  60. Display " You Will have two lines to Input your Mailing Address....|"
  61. Display " ON First line input Box or other Street Address|"
  62. Changecolor 3 0
  63. Ask 50 9
  64.  
  65. Changecolor 14 0
  66. Display " On This Line Input, City, State & Zip Code....|"
  67. ChangeColor 3 0
  68. ask 50 10
  69. endif
  70.  
  71. ChangeColor 14 0
  72. Display " What is your age (please be honest)? | "
  73. ChangeColor 3 0
  74. Ask 2 11
  75.  
  76. PostInfo
  77. OutputAnswer "Full Real Name : " 1
  78. OutputAnswer "Log On Name    : " 3
  79. OutputAnswer "Street         : " 4
  80. OutputAnswer "City           : " 5
  81. OutputAnswer "State          : " 6
  82. OutputAnswer "Zip Code       : " 7
  83. OutputAnswer "Street/box Mail: " 9
  84. OutputAnswer "City/State/Zip : " 10
  85. OutputAnswer "Current Age    : " 11
  86. ChangeColor 15 0
  87. Display "|"
  88. Display "|"
  89. Display "     Thank You For Taking The Time to Answer These Questions !|"
  90. Display "|"
  91. Display "  This Will Save US a lot of Wasted Time and E-mail........|"
  92. Display "|"
  93. Display "|"
  94. ChangeColor 7 0
  95.  
  96. quit
  97.